home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Tools / Rtn / GetString < prev    next >
Encoding:
Text File  |  1998-07-06  |  706 b   |  40 lines
  1. G4C
  2.  
  3. ; GetString
  4. ; Get a string from user & pass it to $gui $rtn given
  5.  
  6. ; Use :
  7. ; GUILOAD GUIS:TOOLS/RTN/GETSTRING Title StartingString Gui Routine Multi
  8.  
  9. WINBIG -1 -1 450 27 ""
  10. WinType 11110010
  11. BOX 0 0 0 0 out button
  12.  
  13. xonload title string gui rtn multi
  14. gosub getstring startup
  15.  
  16. xonreload title string gui rtn multi
  17. gosub getstring startup
  18.  
  19. xRoutine startup
  20. guiopen getstring
  21. setwintitle getstring "$title                                     "
  22. update getstring 1 $string
  23. setgad getstring 1 ON
  24.  
  25. xonclose
  26. guiquit getstring
  27.  
  28. XTEXTIN 5 5 438 17 "" string "" 150
  29. gadid 1
  30. if $string > ' '
  31.    gosub $gui $rtn '$getstring/string'
  32. endif
  33. if $multi == multi
  34.    ; do multiple strings
  35. else
  36.    guiquit getstring
  37. endif
  38.  
  39.  
  40.